home *** CD-ROM | disk | FTP | other *** search
/ Hottest 6 / Hottest 6 (1996)(PDSoft)[!].iso / software / videoutils / h-m / mainactor / rexx / convert.ma < prev    next >
Text File  |  1978-11-24  |  3KB  |  83 lines
  1. /*
  2.  *        Convert V1.0, 1993 Markus Moenig
  3.  *
  4.  *        Converts the source project to the format selected by the 
  5.  *        source modules saver module.
  6.  *        The name of the new animation/picture list will be the old one
  7.  *        plus the name of the saver module.
  8.  *
  9.  *        If an animation has to be build, it will get the 
  10.  *        loop and cpf status of the source.
  11.  *
  12.  *        The new project will then be loaded into a new project window,
  13.  *        and ,if the new project is an animation project, will then be played.
  14.  */
  15.  
  16. OPTIONS RESULTS
  17.  
  18. ADDRESS MAINACTOR
  19.  
  20. ScreenToFront                              /* flip screen to front */ 
  21.  
  22.                                            /* print message */
  23.  
  24. PrintAndStoreTXT "Convert V1.0, converting project ..."
  25.  
  26. GetSPName
  27.  
  28. IF rc = 0 THEN DO                          /* check if project loaded */
  29.  
  30.     PARSE VAR RESULT firstname secondname .  /* store name of the animation */
  31.                                              /* or the names of the picture list */
  32.  
  33.     GetSPLoader
  34.     PARSE VAR RESULT loadertype loadername . /* store type, name of loader module */
  35.  
  36.     GetSPSaver
  37.     PARSE VAR RESULT savertype savername .   /* store type, name of saver module */
  38.  
  39.                                            /* Store general infos of the project */
  40.     GetSPInfo
  41.     PARSE VAR RESULT width height colors pics caching loop cpf .
  42.     
  43.     newname = firstname || "." || savername  /* new name = old one + saverm. name */
  44.  
  45.     SelectAll                                /* select all frames/pictures */
  46.  
  47.                                            /* Build arguments for Save function */
  48.  
  49.     saveargs=newname || " " || cpf || " " || loop
  50.     
  51.     Save saveargs                            /* Build new animation with */
  52.                                            /* arguments of the old one */
  53.                                            /* If new project is a picture list */
  54.                                            /* cpf and loop will be ignored */
  55.  
  56.     IF caching = "CACHING=YES" THEN                 /* Was the old project cached ? */
  57.         
  58.         OpenNewProject "CACHING"               /* If yes new project is also cached */
  59.     
  60.     ELSE 
  61.         
  62.         OpenNewProject                         /* If not new project is not cached */
  63.     
  64.     SetSPLoader savertype savername          /* Set the new projects loader module */
  65.                                            /* to the old projects saver module */
  66.  
  67.     if savertype = "ANIM" THEN DO            /* If new project is an anim project */
  68.     
  69.         LoadProject newname                    /* Load animation */
  70.         PlayProject                            /* play animation */
  71.     
  72.     END
  73.     
  74.     ELSE DO                                  /* if new project is a pic list */
  75.                                            /* generate names of first and last pic */    
  76.         firstpic=newname || "." || Right("00000" || 1, 5)
  77.         lastpic=newname || "." || Right("00000" || pics, 5)
  78.  
  79.         LoadProject firstpic lastpic           /* Load picture list */
  80.  
  81.     END
  82. END
  83.